home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / education / e024.dms / e024.adf / AUTOEXEC.AMOS / AUTOEXEC.amosSourceCode next >
AMOS Source Code  |  1992-04-05  |  18KB  |  614 lines
  1. '             EASY SPELL II    
  2. '                            
  3. '             T D H  &  M D    
  4. '                                  
  5. '          Shieldsoft 1992(c)          
  6. '                                  
  7. '
  8. Screen Open 0,320,500,32,Lowres
  9. Load "Hip.abk"
  10. Cls 0 : Hide 
  11. Volume 0
  12. Music 1
  13. For V=1 To 50
  14.    Volume V
  15.    Wait 4
  16. Next V
  17. WORDS=211
  18. Set Talk 1,1,95,130
  19. Dim W$(WORDS)
  20. Global M,ZO,W$(),A$,T,VOL,Y,X,S$
  21. TIL$="This. is, letter."
  22. Z=1
  23. Screen Close 0
  24. Screen Open 0,320,200,16,Lowres
  25. Rem==================Spack screen from 0 to 11 use NTSC screen== 
  26. Curs Off 
  27. Dim X$(42),X(42),Y(42),XX(20),YY(20)
  28. SCNT=1
  29. SPEED=31
  30. Rem==================Scroll message here======================== 
  31. SC$="/          HI..... WELCOME TO EASYSPELL II THIS IS ALMOST THE SAME AS THE ORIGINAL EASYSPELL/"
  32. SC$=SC$+" BUT HAS BEEN CHANGED SLIGHTLY IN ORDER THAT IT WILL RUN ON THE AMIGA PLUS?          "
  33. SC$=SC$+" A FEW OF THE WORDS HAVE BEEN CHANGED FOR VARIETY/     A WORD WILL BE SHOWN FOR A VERY SHORT TIME?"
  34. SC$=SC$+" YOU WILL THEN BE ASKED TO SPELL IT?    IF THE WORD IS WRONG YOU WILL BE ASKED IF YOU WOULD LIKE THE "
  35. SC$=SC$+"CORRECT SPELLING/    THIS WILL BE DONE LETTER BY LETTER? HAVE FUN!?     IF YOU WANT TO FINISH AT ANY TIME JUST PRESS THE ESCAPE KEY/     PRESS MOUSE KEY TO START/           "
  36. Rem======================Easy spell screen with data============ 
  37. Load "pic1.abk",7 : Unpack 7 To 2 : Erase 7
  38. Screen Open 1,354,Screen Height,Screen Colour,Lowres : Cls 0
  39. Screen Display 2,140,46,,100 : Screen Display 1,140,46,329,256
  40. Load "pic2.abk",7 : Unpack 7 To 0 : Erase 7
  41. Screen 1
  42. Def Scroll 1,1,223 To 353,255,-3,0
  43. Curs Off 
  44. Cls 0
  45. Flash Off 
  46. Get Palette 2
  47. SCRL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ !.:~'<>,-?/_"
  48. Gosub LETTERDAT
  49. Wait Vbl 
  50. Curs Off 
  51. Hide On 
  52. KEEPITGOING:
  53. Gosub SCROLY : 
  54. Wait Vbl 
  55. Goto KEEPITGOING
  56. LETTERDAT:
  57. For F=1 To 39
  58.    Read X$(F),X(F),Y(F)
  59. Next F
  60. Return 
  61. Data "A",6,0
  62. Data "B",42,0
  63. Data "C",77,0
  64. Data "D",111,0
  65. Data "E",145,0
  66. Data "F",181,0
  67. Data "G",216,0
  68. Data "H",251,0
  69. Data "I",286,0
  70. Data "J",6,34
  71. Data "K",42,34
  72. Data "L",77,34
  73. Data "M",111,34
  74. Data "N",145,34
  75. Data "O",181,34
  76. Data "P",216,34
  77. Data "Q",251,34
  78. Data "R",286,34
  79. Data "S",6,68
  80. Data "T",42,68
  81. Data "U",77,68
  82. Data "V",111,68
  83. Data "W",145,68
  84. Data "X",181,68
  85. Data "Y",216,68
  86. Data "Z",251,68
  87. Data " ",286,68
  88. Data "!",6,102
  89. Data ".",42,102
  90. Data ":",77,102
  91. Data "~",111,102
  92. Data "'",145,102
  93. Data "<",181,102
  94. Data ">",216,102
  95. Data "-",251,102
  96. Data ",",286,102
  97. Data "?",5,137
  98. Data "/",40,137
  99. Data "_",76,137
  100. SCROLY:
  101. Scroll 1
  102. Add SPEED,3
  103. If SPEED>31 Then Gosub NELETTER : SPEED=0 : Inc SCNT : If SCNT>Len(SC$) Then SCNT=1
  104. If Mouse Key<>0 Then Screen Close 2 : Screen Close 1 : Screen Close 0 : Goto OPTIONS
  105. Return 
  106. NELETTER:
  107. E$=Mid$(SC$,SCNT,1)
  108. E=Instr(SCRL$,E$)
  109. Screen Copy 2,X(E),Y(E),X(E)+31,Y(E)+31 To 1,320,223
  110. Return 
  111. OPTIONS:
  112. Screen Open 0,320,256,32,Lowres
  113. Screen 0
  114. Get Disc Fonts 
  115. '
  116. '
  117. TYPE:
  118. Set Font 7
  119. Clw : Cls 6 : Y=0
  120. Ink 5,6
  121. Text 55,40,"PLEASE ENTER NAME"
  122. Wait 50
  123. Text 55,70,"THEN PRESS RETURN"
  124. Wait 25
  125. Pen 5 : Paper 6
  126. Locate 0,22 : Centre Border$("No more than 8 letters please",1)
  127. Pen 2 : Paper 6 : Curs Pen 6
  128. Locate 0,0 : Print " "
  129. Wait 25
  130. Pen 3
  131. Locate 14,16 : Print ">        <"
  132. Locate 0,0 : Print " "
  133. For J=30 To 0 Step -1
  134.    Volume J
  135.    Wait 2
  136. Next J
  137. Music Off 
  138. Volume 30
  139. For Y=8 To 16
  140.    If Y>16 Then Y=8 : Goto MUCH
  141.    NAME:
  142.    Pen 5 : Paper 6 : Curs Pen 6
  143.    K$=Inkey$
  144.    If K$="" Then Goto NAME
  145.    If Asc(K$)=8 Then Y=Y-1 : Locate Y+7,16 : Print " " : Locate Y+7,16 : Y=Y-1 : Locate Y+7,16 : M$=Left$(M$,Len(M$)-1) : Goto DUM
  146.    If Asc(K$)=13 Then Goto OPTION
  147.    Locate Y+7,16 : Print Upper$(K$) : Shoot 
  148.    M$=M$+K$
  149.    DUM:
  150. Next Y
  151. MUCH:
  152. Music Off 
  153. Say "Sawree. too. many. letters. Pleese. Try. again."
  154. Music 1
  155. Volume 0
  156. For VOL=1 To 30
  157.    Volume VOL
  158.    Wait 3
  159. Next VOL
  160. M$=M$-M$
  161. Goto TYPE
  162. OPTION:
  163. HI$="HI!"
  164. Cls 6
  165. Text 80,20,"PLEASE CHOOSE"
  166. Pen 3 : Paper 6
  167. Locate 32,7 : Print Border$("*",2)
  168. Locate 32,12 : Print Border$("*",2)
  169. Locate 32,17 : Print Border$("*",2)
  170. Ink 2,6
  171. Text 20,65,"EASY!"
  172. Text 20,107,"NOT SO EASY!"
  173. Text 20,150,"DIFFICULT!"
  174. Wait 25
  175. For G=80 To 60 Step -1
  176.    Bell G
  177.    Wait 2
  178. Next G : Shoot 
  179. Ink 2,6
  180. L=Text Length(HI$)
  181. Text 120-L/2,220,HI$+(" ")+Upper$(Left$(M$,8))
  182. Pen 2 : Curs Pen 6 : Show On 
  183. Reserve Zone 3
  184. Set Zone 1,378,99 To 397,120
  185. Set Zone 2,378,139 To 397,159
  186. Set Zone 3,378,179 To 397,200
  187. Do 
  188.    If M=1 and ZO=1 Then Shoot : Load Iff "Play",0 : M=0 : ZO=0 : Goto ROVER
  189.    If M=1 and ZO=2 Then Shoot : Load Iff "Play",0 : M=0 : ZO=0 : Goto BONZO
  190.    If M=1 and ZO=3 Then Shoot : Load Iff "Play",0 : M=0 : ZO=0 : Goto FIDO
  191.    MCOOD
  192. Loop 
  193. Procedure MCOOD
  194.      TT$=Inkey$
  195.    ZO=Zone(X Mouse,Y Mouse)
  196.    X=X Mouse
  197.    Y=Y Mouse
  198.       If TT$="c" Then Get Cblock 20,0,0,160,16 : X=X Screen(X) : Y=Y Screen(Y) : Locate 0,0 : Print Using "x=###";X; Using "y=###";Y : Wait Key : Put Cblock 20
  199.       If TT$="s" Then Get Cblock 20,0,0,160,16 : Locate 0,0 : Print Using "x=###";X; Using " y=###";Y : Wait Key : Put Cblock 20
  200.    M=Mouse Key
  201.       If TT$="m" Then Get Cblock 20,0,0,160,16 : Locate 0,1 : Print "mouse ";M; Using "zone ##";ZO : Wait 20 : Put Cblock 20
  202. End Proc
  203. ROVER:
  204. Hide On 
  205. Rem..............................Set Dialogue........................... 
  206. '
  207. '
  208. Rem.........................Main Instruction Section.....................
  209. '                                View Alphabet         
  210. '
  211. '
  212. '
  213. Rem.........................   Frankfurter Font   .......................  
  214. Set Font 7
  215. '
  216. '
  217. Ink 6,11
  218. Text 90,50,"THIS IS LETTER"
  219. Rem.........................    Locate  Alphabet   ......................
  220. Ink 4,11
  221. Box 150,61 To 173,82
  222. Box 149,60 To 172,81
  223. Volume 50
  224. Rem.........................      Print alphabet  ........................   
  225. '
  226. '
  227. Wait 100
  228. Pen 1 : Paper 0
  229. Locate 2,2 : Centre Upper$(M$)
  230. Set Font 6
  231. Ink 6,11
  232. Text 66,100,"Left Mouse Continue"
  233. Text 66,119,"Right Mouse to begin"
  234. Set Font 7
  235. For V=63 To 0 Step -1
  236.    Volume V
  237.    Wait Vbl 
  238. Next 
  239. Music Off : Volume 50
  240. ALPHABET:
  241. Wait 100
  242. For T=65 To 90
  243.    Ink 0,11
  244.    S$=Chr$(T)
  245.    Text 156,75,S$
  246.    S$=S$+"."
  247.    Say TIL$+S$ : Wait 75
  248.    Do 
  249.       If Mouse Key=1 Then Goto EASYPEEZY1
  250.       If Mouse Key=2 Then Goto HEREWEGO
  251.    Loop 
  252.    EASYPEEZY1:
  253.    Cls 11,152,63 To 170,79
  254. Next T
  255. HEREWEGO:
  256. Rem.........................     Clear wee box     ........................
  257. Cls 11,152,63 To 170,79
  258. '
  259. '
  260. Rem.........................       Data setup      ........................
  261. Goto EASY
  262. BONZO:
  263. Hide On 
  264. '
  265. '
  266. Set Talk 1,1,95,130
  267. '
  268. '
  269. '
  270. Set Font 7
  271. '
  272. '
  273. '
  274. Ink 2,11
  275. Text 90,50,"THIS IS LETTER"
  276. Ink 4,11
  277. Box 150,61 To 173,82
  278. Box 149,60 To 172,81
  279. '
  280. '
  281. Wait 100
  282. Pen 1 : Paper 0
  283. Locate 2,2 : Centre Upper$(M$)
  284. Set Font 7
  285. Ink 4,11
  286. Text 66,100,"Left Mouse Continue"
  287. Text 66,119,"Right Mouse to begin"
  288. Set Font 7
  289. For V=63 To 0 Step -1
  290.    Volume V
  291.    Wait Vbl 
  292. Next 
  293. Music Off : Volume 50
  294. BETAALPH:
  295. Wait 100
  296. For T=65 To 90
  297.    Ink 0,11
  298.    S$=Chr$(T)
  299.    Text 156,75,S$
  300.    S$=S$+"."
  301.    Say TIL$+S$ : Wait 75
  302.    Do 
  303.       If Mouse Key=1 Then Goto EASYPEEZY2
  304.       If Mouse Key=2 Then Goto THERE
  305.    Loop 
  306.    EASYPEEZY2:
  307.    Cls 11,152,63 To 170,79
  308. Next T
  309. THERE:
  310. Cls 11,152,63 To 170,79
  311. 'Do  
  312. 'MCOOD 
  313. 'Loop  
  314. '
  315. '
  316. Goto FAIR
  317. FIDO:
  318. Hide On 
  319. '
  320. '
  321. Set Talk 1,1,95,130
  322. '
  323. '
  324. '
  325. Set Font 7
  326. '
  327. '
  328. '
  329. Ink 4,11
  330. Text 90,50,"THIS IS LETTER"
  331. Ink 4,11
  332. Box 150,61 To 173,82
  333. Box 149,60 To 172,81
  334. '
  335. '
  336. Wait 100
  337. Pen 1 : Paper 0
  338. Locate 2,2 : Centre Upper$(M$)
  339. Set Font 7
  340. Ink 2,11
  341. Text 66,100,"Left Mouse Continue"
  342. Text 66,119,"Right Mouse to begin"
  343. Set Font 7
  344. For V=63 To 0 Step -1
  345.    Volume V
  346.    Wait Vbl 
  347. Next 
  348. Music Off : Volume 50
  349. ANOTHER:
  350. Wait 100
  351. For T=65 To 90
  352.    Ink 0,11
  353.    S$=Chr$(T)
  354.    Text 156,75,S$
  355.    S$=S$+"."
  356.    Say TIL$+S$ : Wait 75
  357.    Do 
  358.       If Mouse Key=1 Then Goto EASYPEEZY3
  359.       If Mouse Key=2 Then Goto WHERE
  360.    Loop 
  361.    EASYPEEZY3:
  362.    Cls 11,152,63 To 170,79
  363. Next T
  364. WHERE:
  365. Cls 11,152,63 To 170,79
  366. '
  367. '
  368. Goto HARD
  369. EASY:
  370. Restore SIMPLE
  371. For S=0 To WORDS
  372.    Read W$(S)
  373. Next S
  374. Goto MAINPROG
  375. FAIR:
  376. Restore SPELLING
  377. For S=0 To WORDS
  378.    Read W$(S)
  379. Next S
  380. Goto MAINPROG
  381. HARD:
  382. Restore DIFFICULT
  383. For S=0 To WORDS
  384.    Read W$(S)
  385. Next S
  386. Goto MAINPROG
  387. MAINPROG:
  388. Music Off 
  389. Volume 0
  390. Set Font 7
  391. B$="" : C$=Chr$(8) : T$=Chr$(13) : V$=B$
  392. For T=1 To WORDS
  393.    Cls 11,39,40 To 269,193 : Rem...* * *..... clear top box.........
  394.    Ink 4,11
  395.    Cls 11,39,39 To 269,193
  396.    Cls 0,58,210 To 256,233
  397.    Cls 0,146,62 To 144,78
  398.    Wait 100
  399.    Text 100,49,"PLEASE SPELL  "
  400.    R=Int(Rnd(WORDS)) : If R=0 Then Inc R
  401.    If W$(R)="EOF" Then Goto MAINPROG
  402.    Volume 30
  403.    Rem............ Centred Text and word to spell ....................
  404.    '
  405.    L=Text Length(W$(R))
  406.    Text 160-L/2,120,W$(R) : Play 60,5 : Play 62,5 : Play 64,5
  407.    Wait 27
  408.    Rem........................       Clear wordspell     ........................ 
  409.    Cls 11,47,100 To 250,153
  410.    '
  411.    '
  412.    Rem........................      Routine for input    ........................ 
  413.    '                              allowing for erasure    
  414.    '
  415.    '
  416.    Rem........................    Input Answer Routine  ........................... 
  417.    '                                 including Erase  
  418.    '
  419.    '
  420.    ENTRY:
  421.    Ink 6,0
  422.    A$="" : While A$="" : A$=Inkey$ : Wend 
  423.    If A$=C$ or(Len(B$))=14 Then B$=Left$(B$,Len(B$)-1) : A$="" : Cls 0,54,210 To 255,234
  424.    If A$=T$ Then Goto CHECK
  425.    If A$=Chr$(27) Then Goto CHOOSE
  426.    B$=B$+Upper$(A$) : Shoot 
  427.    L=Text Length(B$)
  428.    Text 157-L/2,225,B$ : Goto ENTRY
  429.    Rem........................     Check answer routine  ...........................
  430.    CHECK:
  431.    COR=1 : NO=NO+1 : SS=1
  432.    If B$=Upper$(W$(R)) Then YE=YE+1 : Gosub FLICK : Wait 50 : Goto CONTINUE
  433.    If B$<>Upper$(W$(R)) Then Gosub WRONG : Wait 50 : Gosub CORRECT : Cls 11,49,87 To 254,192 : Goto CONTINUE
  434.    '
  435.    '
  436.    '
  437.    Rem......................   Correct spelling routine.............................. 
  438.    CORRECT:
  439.    Ink 4,11
  440.    Volume 50
  441.    Say "Shaal I spell. faur yoo."
  442.    Text 140,110,"Y=Yes"
  443.    Text 140,130,"N=No"
  444.    ANS: SPELL$=Inkey$
  445.    If SPELL$="" Then Goto ANS
  446.    If SPELL$="n" Then B$=B$-B$ : Goto MAINPROG
  447.    If SPELL$="y" Then Goto SPELLIT
  448.    If SPELL$<>"n" or(SPELL$<>"y") Then Goto ANS
  449.    SPELLIT:
  450.    Cls 11,49,87 To 254,192
  451.    Wait 50
  452.    Pen 0 : Paper 5
  453.    Locate 8,13 : Print Border$("THE CORRECT SPELLING IS",1)
  454.    Say "Heer,wee,gow."
  455.    For C=1 To Len(W$(R))
  456.       Ink 6,11
  457.       L=Text Length(W$(R))
  458.       Text 160-L/2,150,Left$(W$(R),COR) : Play 50,15
  459.       COR=COR+1 : SS=SS
  460.       Wait 50
  461.    Next C
  462.    B$=B$-B$
  463.    Wait 120
  464.    Cls 0,54,210 To 256,236
  465.    PRESSON: Return 
  466.    CONTINUE:
  467.    B$=B$-B$
  468. Next T
  469. '
  470. '
  471. '
  472. Rem.......................    Simple Correct routine   ........................... 
  473. FLICK:
  474. CCR$="YOU HAVE SPELLED" : CT$="CORRECTLY"
  475. Pen 5 : Paper 0
  476. For TUNE=30 To 50 : Bell TUNE : Wait 2 : Next TUNE
  477. For FL=1 To 5
  478.    Locate 25,2 : Print "CORRECT" : Play 60,1
  479.    Wait 10
  480.    Locate 25,2 : Print "       "
  481.    Wait 10
  482. Next FL
  483. Wait 25
  484. Return 
  485. '
  486. '
  487. Rem........................   Simple wrong routine    .................................
  488. WRONG:
  489. Pen 31 : Paper 0
  490. For G=50 To 30 Step -1 : Bell G : Wait 2 : Next G
  491. For WR=1 To 5
  492.    Locate 8,2 : Print "WRONG" : Play 51,1
  493.    Wait 10
  494.    Locate 8,2 : Print "     " : Play 49,1
  495.    Wait 10
  496. Next WR : Return 
  497. '
  498. '
  499. '
  500. CHOOSE:
  501. L$="Left Mouse to play again "
  502. R$="Right Mouse to Finish"
  503. Cls 11
  504. Ink 3,11
  505. Set Font 7
  506. L=Text Length(M$)
  507. Text 160-L/2,20,Upper$(M$) : Play 60,15
  508. L=Text Length(L$)
  509. Text 160-L/2,60,L$
  510. L=Text Length(R$)
  511. Text 160-L/2,90,R$
  512. Do 
  513.    If Mouse Key=1 Then Show On : M$=M$-M$ : Screen Close 0 : Goto OPTIONS
  514.    If Mouse Key=2 Then Goto BYEBYE
  515. Loop 
  516. Rem........................................................................... 
  517. SIMPLE:
  518. Data ""
  519. Data "MAST","MORE","SUNNY","MUM","DAD","CAT","DOOR","SHEEP","SUN","MOON"
  520. Data "MAT","BELL","DOG","BIRD","CAR","BIKE","TAPE","LAMP","BOOK","CLOCK"
  521. Data "LOOK","FUR","STAR","EYE","EAR,","DAY","TORN","RUG","MANY","MILE"
  522. Data "FOOT","TOE","TOES","HAND","NAIL","THE","AND","WAY","HAIR","NOSE"
  523. Data "FACE","LIPS","CHIN","CHEEK","THUMB","KNEE","HEEL","BANK","FIST","BROW"
  524. Data "WALL","STICK","ARM","LEG","BALL","BAT","HOOK","HAND","MOUTH","TEETH"
  525. Data "GLASS","ROAD","BED","CAGE","SEED","ANT","PEN","CAN","POP","WOOD"
  526. Data "MILK","QUIZ","LAMP","LAMB","DISC","MOUSE","RAT","BILL","FRED","JIM"
  527. Data "JET","AIR","NAME","HAIR","HARE","HEIR","YOU","KNOB","MATCH","TAPE"
  528. Data "REST","HIDE","BOX","SEEK","WATCH","BULB","MARY","KEY","BABY","TRAIN"
  529. Data "MONK","FILM","DAISY","FRUIT","APPLE","PEAR","GRAPE","BANANA","RUG","FARM"
  530. Data "BELL","RING","DING","DONG","RING","NOISE","ROW","JOKE","FUN","FUNNY",""
  531. Data "SOAP","WASH","TAP","HOT","COLD","TICK","TOCK","SHEEP","GRASS","GREEN"
  532. Data "BABY","CRY","CHEEK","FEAR","FAIR","FARE","FOOL","FULL","FILL","HORSE"
  533. Data "PLAY","GAME","STICK","DREAM","CHIP","TEA","MILK","DUCK","PAUL","PAPER"
  534. Data "DESK","PEN","PENCIL","RULER","RUB","BOOK","SHEET","LINE","SOOT","CIRCLE"
  535. Data "GRIN","TO","TOO","TWO","THERE","THEIR","MARK","SALT","SOCK","SHOE"
  536. Data "TEST","SAVE","BANK","PENCE","FIVE","FOUR","ONE","SIX","SEVEN","TEN"
  537. Data "NINE","EIGHT","CLOUD","BURN","SCALD","BAND","SPY","BOXER","PRETTY","PINK"
  538. Data "MEND","END","FLIP","PUPPY","BIRD","HEN","DUCK","MESS","BRUSH","PETAL"
  539. Data "BURN","MUDDY","HAPPY","MOBY","LIP","GLASS","TONE","TRIP","CUTE","PRINCE"
  540. Data "EOF"
  541. SPELLING:
  542. Data ""
  543. Data "MOTHER","TOAST","FATHER","AUNTIE","MENTAL","COMPUTER","MANUAL","POISON","PENSION","FRUITFUL"
  544. Data "TELEVISION","COLOUR","PICTURE","SCREEN","SOUND","SPEAKER","PROGRAM","VIDEO","CHANNEL","RECORD"
  545. Data "PRINTER","COMPUTER","KEYBOARD","JOYSTICK","MANUAL","ACTIVE","DISKETTE","UNFOLD","PERFORM","INSERT"
  546. Data "ARMOUR","NUMBER","REMEMBER","PROTECT","DURATION","FAIRWAY","TROOPER","PASTURE","RADIO","TUNER"
  547. Data "STATION","RECORD","NEEDLE","COFFEE","CUSHION","MARKER","DRAWER","QUARTZ","COWBOY","POLICEMAN"
  548. Data "ASHTRAY","CONTROL","LADDER","LIGHTER","COUNTER","COMPACT","CASSETTE","FALCON","HOLDALL","REPORT"
  549. Data "SCHOOL","PLAYGROUND","SKIPPING","TEACHER","FISHING","YACHT","BOATING","ORNAMENT","BUILDING","PAVEMENT"
  550. Data "STATUE","SWORD","PROMOTE","CLOCKWORK","PINEAPPLE","PROTECT","FUTURE","FOREIGN","LANGUAGE","FELTIP"
  551. Data "ALSATION","FIELDER","HANDLER","DIARY","CALENDAR","CRADLE","TRAINER","TRAITOR","PAVEMENT","GARAGE"
  552. Data "FOOTBALL","FRENCH","GERMAN","ITALIAN","BRITISH","DUTCH","WELSH","SCOTTISH","AMERICA","SPAIN"
  553. Data "AIRPORT","AIRCRAFT","BOMBER","MISSILE","ROCKET","LAUNCH","CRUISER","TELEPHONE","WAGES","SALARY"
  554. Data "LUNGS","SKELETON","WINDOW","PAINFUL","LAUGH","MOBILE","ACTION","SOLDIER","FIGHT","TORPEDO"
  555. Data "HOSPITAL","NURSE","DOCTOR","KITCHEN","SUPPORT","GENERAL","SERGEANT","CORPORAL","PRIVATE","COLONEL"
  556. Data "ROUTINE","PORTABLE","SHUTTLE","QUICKLY","QUESTION","WINTER","SUMMER","AUTUMN","SPRING","JOURNAL"
  557. Data "POETRY","NERVOUS","TENSION","TRIGGER","TERRIBLE","TUNNEL","TORTURE","TROUBLE","VENTURE","VISUAL"
  558. Data "DENTAL","DETOUR","DANGER","DENTIST","HEAVY","JOCKEY","HORSE","MEMORY","MEMORIES","ANNOUNCE"
  559. Data "ALASKA","CANADA","GERMANY","ITALY","ENGLAND","SCOTLAND","BELGIUM","DENMARK","PORTUGAL","ENEMY"
  560. Data "POLAND","RUSSIA","PRODUCE","PRODUCT","PROMOTE","ANGER","REMOTE","DANCER","VERBAL","LOCATE"
  561. Data "CONNECT","INFORM","TRAPPED","MEMBER","WELCOME","HEROES","HERO","FREEDOM","KILLER","VIRUS"
  562. Data "BUTTER","PORTER","MESSY","SHOUTED","REPLIED","TERRY","NOISEY","NOSY","EMPTY","TERROR"
  563. Data "FRIGHT","MOVEMENT","RESTURAUNT","WRECKAGE","NERVOUS","UNIFORM","ARTILLARY","SINCERELY","FAITHFULLY","APOLOGISE"
  564. Data "EOF"
  565. DIFFICULT:
  566. Data ""
  567. Data "MUSCULAR","PENNILESS","PRINCIPLE","CATHEDRAL","SYNTHESIZER","MANIPULATE","PRESENTATION","STARGAZER","MUNICIPLE","PRESENTATION"
  568. Data "ENDURANCE","MICROPHONE","BEAUTIFUL","REMEMBERENCE","ASSOCIATE","ACTIVATE","GEOGRAPHY","HISTORIC","ANCESTOR","PRIMITAVE"
  569. Data "BUTTERCUP","ELECTORS","REGISTER","AFTERNOON","AMPLIFIER","KESTRAL","VOLCANO","FRUITFUL","INVITATION","ANNOUNCE"
  570. Data "COOKERY","INFORMATION","ALLOWANCE","HESITATE","DESTRUCTION","WEATHERPROOF","SPORTING","LIVERPOOL","COMMUNITY","STRANGER"
  571. Data "RECOVERY","WESTERN","AVALANCHE","MOTORWAY","INTERVAL","PRETENDER","HEPLFUL","LAMPSHADE","SHADOW","FLIGHT"
  572. Data "EMERGENCY","DICTATION","ADVANCEMENT","ADVENTURE","MILITARY","POSTPONE","ARGUEMENT","GRAPHICS","ASTONISH","MEDIEVAL"
  573. Data "BRIEFCASE","ATTENTION","BARBELL","EXERCISE","DUTIFUL","PREPARATION","NIGHTIME","PREFERENCE","PRINTOUT","KEROSENE"
  574. Data "WONDERFUL","FRIGHTENING","MYSTERY","POWERFUL","EDITION","FRONTIER","ANIMATION","PERFECTION","HORRIFIC","DISASTER"
  575. Data "HAPPINESS","ENGINEER","MAINTENANCE","ARMIES","GRAPEFRUIT","TUNEFUL","MELODIOUS","CHRISTMAS","ELECTRICITY","PHOTOGRAPH"
  576. Data "DAUGHTER","INFANTRY","TECHNICAL","UNIVERSITY","COLLEGE","MATERIAL","COURTROOM","AMOEBA","INFECTION","GALAXY"
  577. Data "SPECTALE","VEGETABLE","COUSIN","UNDERNEATH","AMBULANCE","DETECTIVE","NAVIGATOR","SPELLING","VICTORIOUS","LEATHER"
  578. Data "RADIATOR","SCORPIO","LIBRA","SAGITTARIUS","CAPRICORN","GEMINI","PISCES","AUTOMATIC","GEOLOGICAL","DETOUR"
  579. Data "ANYWHERE","DISTRIBUTOR","PROPELLOR","OFFSIDE","VISUAL","YOUTHFUL","DEHYDRATION","SYRINGE","INJECTION","EARTHQUAKE"
  580. Data "MOUNTAIN","HILLTOP","ENGINEER","PETROLEUM","TREMENDOUS","VISCOUNT","DOLLAR","CENTURY","DECADE","INCREDIBLE"
  581. Data "PRECISE","TENDERNESS","GROUP","MURDERER","MENTALITY","GENTLEMAN","WORTHLESS","RANGER","HEIGHT","MEASURE"
  582. Data "ZELOUS","KINDNESS","WELCOME","FORGETFUL","ELEPHANT","ANNOUNCE","PRISONER","JOURNEY","INSIGHT","CREAMERY"
  583. Data "MEASUREMENT","CURRENCY","BIBLICAL","TERRAIN","BRIGADIER","BRIGHTER","BEGUILE","RAPTURE","RYTHME","LONLINESS"
  584. Data "CONTINUE","CLOSURE","POTATOE","MUSHROOM","SLAUGHTER","WRESTLING","REFEREE","PUBLISHER","LATELY","POINTER"
  585. Data "BECOME","INTERCOM","MUSICAL","OPERETA","BALLAD","THEATRE","AUDITORIUM","RAILWAY","DIRECTORY","PROFIT"
  586. Data "AEROPLANE","PIONEER","PROTOCOL","MOTORWAY","SPEEDOMETER","TACHOMETER","REVOLUTION","CENTURIAN","BAZAAR","NEOPLASM"
  587. Data "CROCHET","AVERAGE","PERSONAL","PERSONEL","THOUGHT","HILLSIDE","PREVIOUS","GRUMBLE","KNICKERBOCKER","VARIABLE"
  588. Data "EOF"
  589. BYEBYE:
  590. For V=0 To 63 Step 1
  591.    Music 1
  592.    Volume V
  593.    Wait Vbl 
  594. Next V
  595. BAD=NO-YE
  596. Pen 5 : Paper 0
  597. Wait 100
  598. Cls 0 : Wait 50
  599. Locate 0,10 : Centre Border$("BYE! "+Upper$(M$),1)
  600. Wait 50
  601. Locate 0,14 : Centre Upper$(M$)+" YOU SPELLED "+Str$(YE)+" CORRECTLY"
  602. Wait 50
  603. Locate 0,17 : Centre "AND"+Str$(BAD)+" WRONGLY"
  604. Wait 50
  605. Locate 0,20 : Centre "HOPE YOU ENJOYED IT!"
  606. Wait 500
  607. Cls 0
  608. Locate 0,15 : Centre Border$("Don't forget to switch off!",1)
  609. Wait 500
  610. For D=60 To 0 Step -1
  611.    Volume D
  612.    Wait 10
  613. Next D
  614. Fade 20